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: 4 14 Sep-1984 $7595 203 LANALYZ°SRe EXEF IXUP.832;1 


0001 8 Ztitle ‘EXEFIXUP = Analyze Fixup Info’ 
module exefixup 
ident="V04-000") = begin 


! 
[RRR RRK eee eeRReeteeeeeeeeHeKee eee ee eeeeeneeeeeeeeeeeeeeneeeeeeeeeeeneeeeeeer 
' 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
'# DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
!* ONLY IN ACCORDANCE WITH THE TERM F H TH THE 
:* INCLUSION OF 


oooloooo 
OOoooocooooo 
MN 


® 
® 
® 
® 
® 
® 
a 
oe 
® 
HER * 
'® TRANSFERRED. ‘ 
* 
® 
sd 
® 
® 
& 
® 
® 
® 
& 


$ 
g 'e OT PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
0018 ® 
0019 :* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
0020 :* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
BoS3 CORPORATION. 
if 
0098 :* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
0024 :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
se 1: 
® 
o056 i eeeeererereeneerereeneereeeeeeeeerereesererteeeeeereneneneeeeeeeeeeereeeees 
002 : 
0030 !+ 
oss } Facility: VAX/VMS Analyze Facility, Analyze Image Fixup Info 
0033 Abstract: This module is responsible for analyzing the fixup info 
0034 section of an image. This section contains info necessary 
0035 for the Linking and activation of shareable images. 
0037 
sit Environment: 
sre Author: Paul C. Anagnostopoulos, Creation Date: 20 April 1981 
004 Modified By: 
004 


Get the length of the fixup section cells only once, 
for the first one, and use this value for all the cells. 


v03-002 MCNO158 Maria del C. Nasr 22-Mar-1984 
Use SHL$C_MAXNAMLNG for size of shareable tnegy aque 
to pass aS a parameter to ANLSCHECK_SYMBOL. Eliminate 
declaration of local loop counter I: Determine the 
length to add for the fixup section, to support new 


oped Length. 
0055 v03-001 PCA1011 Paul C. Anagnostopoulos 11-Apr-1983 


Change the message prefix to ANLOBJ$_ to ensure that 
message symbols are unique across alT ANALYZEs. This 


[=] 
oO 
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i 
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i 
i 
i 
' 
v03-003 MCNO167 Maria del C. Nasr 02-May-1984 
! 
1 
i 
i 
i 
i 
i 
! 
i 
i 
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bay 
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1 ine 


B08 1! is necessitated by the new merged message files. 
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EXEFIXUP = Analyze Fi Info 1-32 -1984 23:47: AX-11 Bliss-32 V4.0-74 Page 3 
Module Declarations oe 12-9054 982 99:95:03 PANALYZ-SRe exer LAOS sg st ° (2) 
060 Tsbttl "Module Declarations’ 
poe Libraries and Requires: 


3 


OO tt el ee ll ee el el el el el el cl lh cel cl el ll el el el ell el el ee el 


library ‘Lib’; 
require ‘objexereq'; 


' 
! Table of Contents: 


forward routine F : 
anl$image_fixup_info; 


pele loleleloelolololalo) 


1 
External References: 


PAAAAAAMUIVIO 
oo 
we 


SSORONSE APU ODR oe 


HOO DNOUESWN $OOONOUS WN OOO 


external routine 
weit | eyes phen 
anl$check_sym ol, 
anl$format_error, 
anl$format_flags, 
anl$format_line, | 
anl$format_protection, 
anl$interact, : 
anl$map_fixup_section, 
anl$report_page, 
anl$report_line; 


SOoOooooooo°ooo 
MAMA UII 


™~m 


external . ; 
anl$gb_interactive: byte; 


‘ 
Own Variables: 


COOCSooCoCoooO 
PDAS SVP SSA 
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EXEFIXUP = Analyze Fixup Info 1-52 “1984 23:47:0 AX-11 Bliss-32 V4.0-74 
ANLSIMAGE _F IXUP_INFO > Analyze Fixup Info 14-Sep-19 $7595 323 LANALYZ SRE EXEF IxXUP.832;1 
82 ¢ } Rsbetl "ANLSIMAGE _FIXUP_INFO = Analyze Fixup Info’ 
b2 4 1 ! Functional Description: 

+> ae ee his routine is responsible for the analysis of the fixup info 
05 $ : : section of a shareable image. 
$8 8 1 ! Formal Parameters: 
0539 1! mage_base Starting address of the complete image. 
0540 1! fixup_size Number of blocks of fixup info. 
bee3 ; } fixup_vbn VBN of fixup info. 
$308 1! Implicit Inputs: 
0544 1! global data 
0545 1! 
0546 1! Implicit Outputs: 
0547 1! global data 
0548 1! 
0549 1! Returned Value: — ; : : : 
gae9 ; If interactive session: true if we are to continue, false otherwise. 
0236 1! Side Effects: 
0555 1! 
0554 1 !<- 
0555 1 
0556 1 
b22e $ global routine anl$Simage_fixup_info(image_base,fixup_size,fixup_vbn) = begin 
0559 2 own 
3200 3 flags_def: vector([2,long] initial ( 
0562 2 uplit byte (Zascic ‘IAFSV_SHR')); 
0563 2 
0564 2 local 
0565 § fp: ref block(,byte], 
0566 end_ptr: ref blockl,bytel, 
0567 2 sp: ref blockl,bytel, 
0568 2 count: long, 
0569 long_array: vector([4,long); 
0570 
0571 
0376 ! We begin with a nice heading on a new page. 
0574 ent sreportpeget): : : 
0575 anl$format_line(0,0,anlobj$_exefixup); 
0576 2 anl$report~line(-1); 
Bere § anl$report_line(-1); 
0579 2! If the fixup size and VBN are zero, then there was no fixup section. 
8280 ! Tell the user and quit. 
0286 if .fixup_size eqlu 0 then ( : : 
058 anl$format_line(0,1,anlobj$_exefixupnone) ; 
0584 return true; 
0386 3 
0587 ! Map the fixup section into memory. If the routine returns zero, then 
0588 ! we couldn't, so tell the user. 
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EXEFIXUP = Analyze Fixup Info 15-Sep-1984 23:47:0 AX=-11 Bliss-32 V4.0-74 
ANLSIMAGE _FIXUP- INFO = hnalyze Fixup Info 12-300- 1984 $7395 388 LANALYZ.SRe EXEF IXUP.B832;1 
0356 t \Smap_ fi tion(. fi ize,.fi bn) 
= anl$ma xup_section(.fixup_size,.fixup_vbn); 
$891 if -fp eqla 0 then-t ths me 
§23¢ anl$format_error(anlobj$_exebadfixupvbn,.fixup_vbn,.fixup_size); 
59 return; 
G3 3 >: 
Fa ! Set up a pointer to the end of the section so we can test for it. 
b208 end_ptr = .fp + .fixup_size*512; 
0600 ! Now we will format the fixed part of the — info. The only items 
0601 ! we need to bother with are the flags, shareable image count, 
boo ! and extra allowed count. 
0604 anl$format_line(3,1,anlobj$_exefixfixed); 
0605 anlSreport_line(-1); 
0606 anlS$format_flags(2.anlobj$_exefixflags,.fpliafSw_flags],flags_def); 
0607 anl$check_flags(.fpliaf$w_flags],flags def); : 
0608 ant $fornat_(ine(O.2.anLoby$_exet {xcount...fot iafSt_shrimgcnt) ; 
eet anl$format_lLine(0,2,anlobj$_exefixextra,.foliaf$l_shlextra]); 
pert ! If this is an interactive session, then let's see what the user wants to do. 
061 if .anl$gb_interactive then 
0614 § if not anl$interact() then 
0615 return false; 
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EXEFIXUP = Analyze Ng By 1b-525- o- 130% $3262:08 AX-11 Bliss-32 v4.0 Page 
ANLSIMAGE _F IXUP_INFO Ap A Fixup Info 14-Sep-19 1:52:46 ANALYZ.SRC EXEF IXUP. “233. 31 
B66 ! Now we are going to print the shareable image List. This involves 

1 i only the name of the image. And the first List entry has no name, 

18 i because it refers to this image. 
be 0 anl$report_line(-1); y 

1 anl$format_line(3 1} anlobj$_exefixtist); 
06 g anl$report_line(=1): 
Be ¢ sp = .fp + .fpliaf$l_shistoff); 
06 begin 
0659 . 
0625 local 
be 4 cell_size; 
0631 if -sp(shi$b_shl_size] neq 0 
06 § hen 
063 cell_size = .sp{shl$b_shl_size] 
0634 else 
$632 cell_size = shl$c_old_shl_size; 
0637 4 incru i from 0 to .fpliaf$l_shrimgcnt]-1 do ( 
ete 4 Local 
0639 4 name_dsc: descriptor; 
0640 4 
0641 4 if .i eqlu Ot 
0642 4 —* A-_Ag Line(0,2,anlobj$_exefixname0,. i) 
0643 5 else ( 
0644 5 anl$format_line(0,2,anlobj$_ epost imnene.; i,spCshl$t_imgnam]) ; 
0645 5 build descriptor (name_ CMa 5p Cshl$b _naming), spCshl$t _imgnam)+1); 
Rose ? anl$check_symbol (name_dsc, shl$c_maxnamlng); 
0648 4 sp = .sp + -cell_size; 
0649 3); 
bees end; 
Be2 ! If this is an interactive session, then let's see what the user wants to do. 
0654 if -anl$9b_ interactive then 
0655 if not anl$interact() then 
0656 return false; 
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EXEFIXUP = Analyze ptm tet 15 500-1984 $336 47:0 AX-11 Bliss-32 v4.0 
ANLS IMAGE _F IXUP_INFO alyze Fixup Info 14-Sep-19 1:52:46 ANALYZ.SRCJEXEF IXUP. “B33; 31 
2 ! Now we will analyze the enternat address data (G* fixups). For each 
3 i shareable image with such fixups, we have a fixup count, the image 
23 i r, and a list of references. 
61 


f .fpliaf$l_g_fixoff] nequ 0 then ( 


anl$report_ } nett 
anl$format_line(3,1 * anlobj$ exefixg); 
sp = .fp +”. tpliaf$l_g_fixoff); 


Page 


7 
(5) 


: ; ! Loop until we get to the end of the data. 
pore : while .sp{0,0,32,0] nequ 0 do ( 
bore 4 ! If we have run off the end of the section, then the 
8007 2 ! end of data marker is missing. 
0675 5 if .sp geqa .end_ptr then ( 
0676 5 anl$format_error(anlobj$_exebadf ixupend); 
0677 5 exitloop; 
0678 4 : 
0679 4 : - F 
set 2 ! Format a Line with the count and image number. 
0682 4 count = -spl0, 0.32.0); 
0683 4 sp = .sp + 
0684 4 anl$report_ Line(-1); 
0685 4 anl$format_ prnnte 3* antobjs. exefixgimage,.count,.sp[0,0,32.0]); 
pone 4 sp = .sp + 
0687 4 } 
pos 2 ! Loop al the references and format them 4 to a Line. 
0690 2 incru i from 0 to ,count-1 d 
0691 Long. arity yee i mod 43° = * spC0, 0.32.0); 
0692 5 sp = .sp + 
0693 5 . 
0694 5 if .i mod 4 eqlu 3 or .i_ eglu .count-1 then 
0695 5 anl$format_line(0,5,anlobj$_exefixgline,.i_ mod 4 + 1, 
bee ? .long_arrayf0J,.long_ array(1J,.long_ array(2],.long_ arrayC3)) 
0698 ); 
0699 ; 
0700 ' If this is an interactive session, then let's see what the user 
0701 ! wants to do. 
34.4 
070 if .anl$gb_interactive then 
0704 if-not anl$interact() then 
0705 return false; 
0706 2); 
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EXEFIXUP = Analyze Fixup Info 15-52 -19 3:47:0 AX-11 Bliss-32 V4.0-74 P 8 
ANLS$1 GE_F1XUP- INFO = bnalyse Fixup Info 12-88-1984 $7:95:9 PANALYZ -SREJEXEF 1XUP.B3 31 Pat (6) 
707 ! Now we will analyze the internal address data (.ADDRESS fixups). For each 

708 : shareable image with such fixups, we have a fixup count, the image 

f iH ! number, and a List of offsets. 

f : if .fpliaf$l_dotadroff] nequ 0 then ( 

7 


! Put out a heading Line be ey mg the base address of the image, 
! since the address are relative to it. 


anl$report_line(-1); ; 

anl$format_line(3,1 ented [9 2747 1naa = tnage peso? 
sp = .fp + . tpliaf$l_dotadroft 3 

! Loop until we get to the end of the data. 

while .sp{0,0,32,0] nequ 0 do ( 


: If we have run off the end of the section, then the 
! end of data marker is missing. 


if .sp geqa .end_ptr then ( , - 
i anl$format_error(anlobj$_exebadfixupend) ; 
Savereany 


! Format a Line with the count and image number. 
count = .sp(0.0,32,0]; 
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sp = .sp + 
anl$report_line(-1); 
37 anl$format_line(2,2,anlobj$_exefixaimage,.count,.sp{0,0,32,0)); 
3 sp = .sp + 4; 
re ! Loop through the references and format them 4 to a Line. 
t incru i from 0 to .count-1 do ( 
4 long_arrayl.i mod 4] = .spC0,0,32.0):; 
aa sp = .sp + 4; 
46 if .i mod 4 eqlu 3 or .i eglu .count-1 then | y 
47 anl$format_lLine(0,5,anlobj$_exefixaline,.i mod 4 + 1, 
$8 . long_array[0J,.long_array(1],.long_array(2),.long_arrayl3]) 
% ous 
2§ ! If this is an interactive session, then let's see what the user 
3 ! wants to do. 
55 if .anl$gb_interactive then 
56 if-not anl$interact() then 
4 return false; 
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ANLSIMAGE _FIXUP_INFO = Analyze Fixup Info 14-Sep-19 1:52:4 ANALYZ.SRCJEXEF IXUP.832;1 
0 759 : Now we will analyze the section preveesoee change data. This consists 
1 760 ! of a count of cnanges followed y the changes. Each change specifies 
¢ re ! the address and extent of the section, along with its new protection. 
: 708 if .fpliafSi_chgprtoff] nequ 0 then ( 
$768 ! Put out a heading Line phy mag the base address of the image, 
i 870 ! since the address are relative to it. 
9 0768 anl$report_line(-1); . 
0 976? anl\$format_line(3,1,anlobj$_exefixp,.image_base); 
1 0770 sp = .fp + fotiaisl chgprtoffi; 
¢ 0771 count = .spl0,0,32,02; 
4464 sp = .sp + 4; 
4 077 
; Bore ! Now we will loop through the change entries. 
7 o776 4 incru i from 1 to .count do ( 
48 0777 4 3 
49 0778 4 ! If we have run off the end of the section, then the 
50 779 4 ! count is screwed up. 
51 780 4 
25 0781 5 if .sp geqa .end_ptr then ( ; 
35 0782 5 : anl$format_error(anlobj$_exebadfixupend) ; 
54 0783 5 exitloop; 
55 0784 4 j; 
56 0785 4 ; , , 
357 0786 4 ! Format the information about this change. 
58 0787 4 
59 0788 4 anl$report_line(-1); ‘ - ; f 
0 0789 4 anl$format_lLine(2,2,anlobj$ exefixpsect,.splicp$l_baseva],.splicp$w_npages]); 
361 0790 ‘ anl$format_protection(2,.splicp$w_newprtJ); 
308 0792 4 ! Advance to the next change entry. 
364 0793 4 
365 0794 & sp = .sp + 8; 
366 0795 3 ds; 
367 0796 ; a : - 
368 0797 ! If this is an interactive session, then let's see what the user 
369 0798 3 ! wants to do. 
370 0799 3 A : 
71 0800 3 if .anl$gb_interactive then 
7 0801 ; if not anl$interact() then 
7 080 return false; 
74 0803 2); 


bah 


8 
; INFO#212 


: 381 


52 48 53 SF 


03 AX-11 Bliss-32 V4.0-7 
& ANALYZ.SRCJEXEF IXuP. 833; ;1 
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yze Fixup Info 14-Sep-1984 11:52: 
! We are all done. Free up the memory mapping the fixup section. 
anl$map_fixup_section(); 
return true; 


end; 
L1:0592 
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ow 
<£ 
3832 : 
o- 
aN 
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m 
=x 
o 

zw 

—— 
m 
=< 
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< 
@w 
a 


E EC 
ANLOBJ$_OBJF ADPASSMECH 


ANL N 
ANLOBJ$_OBJGSDENVF LAGS 
ANLOBJ$_OBJGSDENVPAR 
ANLOBJ$~OBJGSDEPM 


EXTRN ANLOBJ$_OBJGSDPSCALIGN 


14 
ener ie EXEFIXUP = Analyze Fixup Inf 18-5 6p-1986 $3:92:03 AX-11 te V4.0-74 
v04-000 ANLSIMAGE_FIXUP_LINFO = Enalyze Fixup Info 14-Sep-1984 11:52:4 ANALYZ.SRCJEXEF IXUP.B32;1 
-EXTRN ANLOBJ$_OBJGSDEPMW 
«EXTRN ANLOBJ$_OBJGSDIDC 
«EXTRN ANLOBJ$_OBJGSDIDCENT 
-EXTRN ANLOBJ$_OBJGSDIDCFLAGS 
-EXTRN ANLOBJ$_OBJGSDIDCMATCH 
-EXTRN ANLOBJ$_OBJGSDIDCOBY 
-EXTRN ANLOBJ$_OBJGSDIDCVALA 
-EXTRN ANLOBJ$_OBJGSDIDCVALB 
«EXTRN ANLOBJ$_OBJGSDLEPM 
.EXTRN ANLOBJ$~OBJGSDLPRO 
.EXTRN ANLOBJ$~OBJGSDLSY 
.EXTRN ANLOBJ$~OBJGSDPRO 
~EXTRN pop ett 
-EXTRN ANLOBJ$_OBJGSDPSC 


MTCREC 
-EXTRN ANLOBJ$_OBJMTCSEQNUM 
-EXTRN ANLOBJ$_OBJMTCUIC 
-EXTRN ANLOBJS_ etd ate? a 
-EXTRN ANLOBJ$_OBJMTCWHEN 
-EXTRN ANLOBJ$_ ~OBJPROARGCOUNT 
-EXTRN ANLOB JS” ~0BJPROARGNUM 
JS-OBJPSECT 


~OBJSRCREC 
-EXTRN ANLOBJ$_OBJSTATHEADING1 
-EXTRN ANLOBJ$_OBJSTATHEADING2 
-EXTRN ANLOBJS_OBJSTATLINE 


MFLAGS 
-EXTRN ANLOBJ$_OBJT IRARGINDEX 
-EXTRN ANLOBJ$_OBJTIRCMD 
-EXTRN ANLOBJ$_OBJTIRCMDSTK 
-EXTRN ANLOBJ$_0BJTBTREC 


<m 


14 
EXEFIXUP EXEFIXUP = Analyze Fixup In 1$-se 
FOL-000 NL SIMAGE : “a 14-8e 


OF AX-11 Bliss-32 V4.0-74 
ANLSIMAGE _FIXUP_INFO = ctees Fixup Info 4 


ANALYZ.SRCJEXEF IXUP.832;1 
ANLOBJ$_OBJTIRREC 
NLOBJ T 


22222 “— 
> 
— 
»@ 
wn 
~ 
oO 
md 
=z 


EXTRN ANC OBIS =NOSUCHM 
EXTRN ANLOBJ$~BADDAT 


-EXTRN ANLOBJS~TEXT ANL OBS TEXTHDR 
[EXTRN ANLOBJ$~ ~BADHDREL KCOUNT 
¥ OBJ$~BADSEVERITY 


-EXTRN ANLOBJ$~EXEBADISDS1 
-EXTRN ANLOBJ$~EXEBADISDTYPE 

-EXTRN ANLOBJ$~EXEBADMATC 

-EXTRN ANLOBJ$~EXEBADPATCHLEN 

-EXTRN ANLOBJ$~EXEBADOBJ 

“EXTRN ANLOBJS~EXEBADTYPE 

-EXTRN ANLOBJ$~EXEBADXFERO 

-EXTRN ANLOBJ$~EXEHDRI SDLONG 

-EXTRN ANLOBJ$~EXEHDRLONG 

-EXTRN ANLOBJ$~EXE I SDLENDZRO 

-EXTRN ANLOBJ$~EXEI SDLENGBL 

-EXTRN ANLOBJ$EXE I SDLENPRIV 

-EXTRN ANLOBJ$~EXENOTNAT IVE 

EXTRN ANLOBJS~EXTRABYTES 

-EXTRN ANLOBJ$~F IELDFIT 

-EXTRN ANLOBJ$~FLAGERROR 

-EXTRN ANLOBJS$"NOTOK, ANLOBJ$_OBJBADIDCMATCH 
-EXTRN ANLOBJ$~OBJBADNUM 

-EXTRN ANLOBJ$~OBJBADPOP 


-EXTRN ANLOBJS— Rhett fea 
-EXTRN ANLOBJ$_OBJHDRRES 
-EXTRN ANLOBJ$_OBJMHDBADRECS12Z 


XTRN ANLOBJ$"OBJNULLREC 
XTRN ANLOBJ$"OBJPOSPACE 
XTRN ANLOBJ$~OBJPROMINMAX 
XTRN ANLOBJ$"OBJPSCABSLEN 


am 


ee eR _ 
. 


/ EXEF Ll XUP EXEFIXUP = Analyze Fi Info 
fbee000 YINFO = An 


1 :0 AX=-11 Bliss-32 V4.0-7 P 14 
ANLSIMAGE _FIXUP_LINFO = Analyze Fixup Info 1 23 ae 


4 

5 ANALYZ.SRCJEXEF IXUP. 83 31 (8) 
RN ANLOBU$ apeumtrorele 
RN AN RES 


INE 
~EXTRN poe ee PROTECTION 
-EXTRN ANLSINTERACT, OT natal F IXUP_SECTION 


-EXTRN ANLSREPORT LINE 
-EXTRN ANLS$GB_ INTERACTIVE 


-PSECT S$CODES,NOWRT,2 


OFFC 00000 -ENTRY a S Image FIXUP_INFO, Save R2,R3,R4,R5,R6,- ; 0557 
by) 0000G CF 9E 00002 MOVAB ANLS$GB_INTERACTIVE, R11 : 
5A 00000000G 8F 00 00007 MOVL PAN OBIS EXEBADE IXUPEND, R10 : 
59 0000G CF 9E O000E MOVAB ANLSREPORT_LINE, R9 : 
58 0000G CF 9€ 00013 MOVAB a ~ ye LINE, R8 : 
5E 18 C2 00018 SUBL2 #24, 3 
0000G CF 00 FB 0001B CALLS 40, ANL SREPORT PAGE ; 0574 
00000000G 8F DD 00020 PUSHL WANLOBJS _EXEF IRuP ; 0575 
7E 7C 00026 CLRQ SP) : 
68 03 FB 00028 CALLS #3, ANL SF ORMAT _LINE : 
7E 01 CE 00028 MNEGL #1, : 0576 
69 01 FB OO02E CALLS #1, ANL $REPORT _LINE 3 
7E 01 CE 00031 MNEGL “#1, ; 0577 
69 01 FB 00034 CALLS #1, ANL SREPORI _LINE 3 
52 08 AC DO 00037 MOVL FIXUP_ SIZE, R2~ ; 0582 
10 12 00038 BNEQ 3 
00000000G 8F DD 0003D PUSHL #ANLOBJS$_EXEF IXUPNONE : 0583 
01 DD 00043 PUSHL #1 : 
7E 04 00045 CLRL -(SP) 3 
68 03 FB 00047 CALLS #3, ANLSFORMAT_LINE ; 
02CB 31 OO04A BRW 3; 0584 
Oc AC DD 0004D 1$: PUSHL FIXUP_VBN ; 0590 
52 0D 80028 PUSHL 3 
0000G CF 9¢ a: 0034 CALLS #2, ANLSMAP_FIXUP_SECTION : 
53 50 pO 0005 MOVL RO, FP 3 
13 12 OOOSA BNEQ 3$ 3; 0591 
52 dD 0005C PUSHL 3; 0592 
Oc AC DD 0005E PUSHL FIXU : 
000000006 8F DD 00061 PUSHL pANLOBYS” EXEBADF I XUPVBN : 
0000G CF 03 FB 00067 CALLS #3, ANLSFORMAT_ERROR 3 
O2AD 31 0006C 28: BRW 36$ > 0591 
52 52 09 78 OOO6F 3$: ASHL #9, R2, R2 ; 0598 
57 2 53 C1 00073 ADDL3 FP, R2, END_PTR : 
00000000G 8F DD 00077 PUSHL M#ANLOBJS_EXEFIXFIXED 3; 0604 
01 DD 0007D PUSHL #1 ; 
03 DD 0007F PUSHL 3 3 
68 03 FB 00081 CALLS #3, ANLSFORMAT_LINE : 


14 
| EXEF I XUP EXEFIXUP = Analyze Fixup Info 1-se 1984 23:47:0 AX=-11 Bliss-32 V4.0-7 Pa 15 
v0G= ANLSIMAGE_FIXUP_INFO = Analyze Fixup Info 14- Sep-1986 73 1:52 5:03 ANALYZ.SRCJEXEF IXUP. 635; :1 - (8) 
7 1 CE 00084 MNEGL #1, =(SP) : 0605 
0 0000" tr oF na Sites FLAGS seerom — : 9606 
7E A A3 it 008 MOVZWL iberp : 
000000006 8F dD 0009 PUSHL bi Ons. EXER IXFLAGS : 
02 DD 9009 PUSHL # : 
00006 CF 04 FB 0009A CALLS #4, ANLSFORMAT_FLAGS : 
0000" CF 9F 0009F PUSHAB FLAGS DEF : 0607 
7E OA A3 3C O00A3 MOVZWL (FPY, =(SP) : 
00006 CF 0 FB OOOA7 CALLS #2, ANLSCHECK FLAGS : 
1¢ A’ DD OOOAC PUSHL (FP) : 0608 
000000006 BF DD OOOAF PUSHL #ANLOBJ$_EXEF IXCOUNT : 
2 DD 00085 PUSHL #2 : 
7E D4 00087 CLRL. = (SP) F 
68 04 FB 000B9 CALLS #4, ANLSFORMAT_LINE ; 
20 A3 DD 000BC PUSHL 32 : 0609 
000000006 8F DD O0OBF PUSHL #ANLOBJS_EXEFIXEXTRA : 
02 oD 000C5 PUSHL #2 F 
7E D4 000C7 CLRL. = SP) : 
68 04 FB 000C9 CALLS #4, ANLSFORMAT_LINE : 
08 68 €9 000CC BLBC ANL $B INTERACTIVE, 4$ : 0613 
0000G CF 00 FB OOOCF CALLS 0, ANCSINTE 3: 0614 
95 50 €9 00004 BLBC R : 
7E 01 CE 00007 4s: MNEGL #1. -(SP) + 0620 
69 01 FB OOODA CALLS #1, ANLS$REPORT_LINE 3 
000000006 8F DD 000DD PUSHL M#ANLOBJ$_EXEFIRLIST + 0621 
01 DD O00E3 PUSHL #1 : 
03 DD O00ES PUSHL #3 ; 
63 03 FB 000E7 CALLS #3, ANLSFORMAT_LINE : 
7E 01 CE OOOEA MNEGL #1, : 0622 
69 1 FB OO0ED CALLS #1, ANLSREPORT_LINE : 
54 53 18 A3 C1 O00FO ADDL3 24(FP), FP, SP > 0624 
10 A 93 000F5 TSTB ~—-: 16 (SP) 3 0631 
06 13 000F8 BEQL 5$ : 
55 10 Ad 9A OOOFA MOVZBL 16(SP), CELL_SIZE > 0633 
03 11 OOOFE BRB 6$ : 
55 38 DO 00100 5$: MOVL. #56, CELL SIZE > 0635 
56 1c AB 01 C3 00103 6$: SUBL3. #1, 28(FPT, R6 : 0637 
52 D4 00108 CLRL I > 0648 
3F 611 OO10A BRB 10$ : 
52 pS 0010C 7$ TSTL ] > 0641 
11 12 0010€ BNEQ 8$ ; 
52 DD 00110 PUSHL : 0642 
000000006 8F DD Oo118 PUSHL #ANLOBJ$_EXEF IXNAMEO ; 
02 DD 0011 PUSHL #2 F 
7E D4 OO1IA CLRL.  =(SP) : 
ée 04 FB 0011C CALLS #4, ANLSFORMAT_LINE ; 
25 11 OO11F BRB ; 
18 A& OF 00121 8S: PUSHAB 24(SP) > 0644 
52 DD 0014 PUSHL | ; 
000000006 8F DD 00126 PUSHL #ANLOBJ$_EXEF IXNAME : 
02 DD 0012C¢ PUSHL 2 : 
43 D4 0012E CLRL SP) F 
68 05 FB 00130 CALLS s ANL SF ORMAT LINE ; 
6E£ 18 Ad 9A 00133 MOVZBL hisp), AME _DSC > 0645 
04 AE 19 Ad SE 00137 MOVAB  25(R4), NAME “DSC+4 : 
27 DD 0013¢ PUSHL $35 > 0646 


F 14 
EXEF IXUP EXEFIXUP = Analyze Fixu 15=Sep-1984 23:47:0 AX=11 Bliss -32 v4.0-7 Pp 1 
Voe~000 ANL S$ IMAGE “FIXUP” INFO - Be Fixup Info Fe pt 44 $7525: 08 ANALYZSRCJEXEF IXUP. b3 31 — (BS 
04 AE OF 0013E PUSHAB : 
00006 ‘ 09 Fe 0141 CALL 2 AML SCH cx SYMBOL g 
4 CO 00146 9$: ADDL2 CELL.SIZE, SP + 0648 
22 D6 00149 INCL : 6637 
56 52 01 00148 10$:  CMPL 1 m : 
0B es ee 0150 BLBC. ANLSGB INTERACTIVE, 115 £0654 
00006 CF 00 FB 0015 CALLS #0, ANCSIN + 0655 
03 50 &8 00158 BLBS RO 11$ : 
01BE 31 00158 BRW 6$ : 
Oc AS DS O015E 118 TSTL igcrP) + 0662 
: 12 00161 BNEQ 12$ : 
0098 31 00163 BRW 20$ : 
7E 01 CE 00166 12$:  MNEGL #1, -(SP) + 0664 
69 01 FB 00169 CALLS #1, ANLSREPORT_LINE 3 
000000006 8F DD 0016¢ PUSHL #ANLOBJ$_EXEF IRG + 0665 
01 DD 00172 PUSHL #1 : 
03 DD 00174 PUSHL #3 : 
68 03 FB 00176 CALLS #3, ANLSFORMAT_LINE : 
54 5 0c a3 C1 00179 ADDL3 12(FP), FP, SP > 0666 
64 DS OO17E 138 TSTL (SP) + 0670 
71 13 00180 BEQL 19% ; 
57 54 D1 00182 CMPL SP, END_PTR + 0675 
09 1F 00185 BLSSU 148 3 
5A DD 00187 PUSHL R10 : 0676 
0000G CF 01 FB 00189 CALLS #1 ANL $F ORMAT_ERROR $ 
63 11 0018E BRB 19$ t 0675 
52 84 DO 00190 14$ MOVL (SP)+, COUNT + 0682 
7E 01 CE 00193 MNEGL #1, -(SP) + 0684 
69 01 FB 00196 CALLS #1, ANLSREPORT_LINE : 
64 DD 00199 PUSHL (SP) + 0685 
52 DD 00198 PUSHL COUNT : 
000000006 8F DD 0019D PUSHL #ANLOBJ$_EXEF IXGIMAGE F 
02 DD 001A3 PUSHL #2 : 
02 DD 001A5 PUSHL #2 ; 
68 0S FB OO1A7 CALLS #5, ANLSFORMAT_LINE : 
54 04 CO OO1AA ADDL2 #4. § + 0686 
56 FF A2 9E OO1AD MOVAB -1(R2), R6 : 0690 
55 D4 00181 im 3 : 
37 11 001B3 BRB 18$ : 
7E 00 55 01 7A 00185 15$:  EMUL #1, I, #0, -(SP) > 0691 
50 50 BE 04 7B 001BA EDIV. #4, (§P)+. RO, RO ; 
08 AE4O 84 DO 001BF MOVL (SP)+ LONG_ARRAYCRO] 3 
03 50 D1 001C4 CMPL ~=soéRO, «#8 > 0694 
05 13 001C7 BEQL 4 E=—«+16$ : 
56 55 01 001C9 CMPL =sid, RG ; 
1¢ 12 001CC BNEQ 17S ; 
14 AE DD QOICE 16$:  PUSHL LONG_ARRAY+12 + 0696 
14 AE DD 00101 PUSHL LONG_ “ARRAY +8 3 
14 AE DD 00104 PUSHL LONG -ARRAY+4 : 
14 AE DD 00107 PUSHL LONG. ARRAY ; 
01 AO 9F OO1DA PUSHAB 1(ROJ > 0695 
000000006 8F DD 9010p PUSHL #ANLOBJS$_EXEF IXGLINE F 
3 DD OO1E PUSHL #3 ; 
7E D4 OO1E5 CLRL. = (SP) : 
68 08 FB OO1E7 CALLS #8, ANL$FORMAT_LINE $ 
55 D6 OO1EA 17% INCL I > 0690 


| 14 
EXEF LXUP EXEFIXUP = Analyze Fixup Info 18.36 -1984 23:47:0 Axk-11 Bliss-32 V4.0-74 P 17 
-vO4 ANLSIMAGE_FIXUP_INFO = Snsiyse Fixup Info 12-808-1 984 $7: 05:08 PANALYZ SREJEXEF IXUP.B3 31 age 18) 
56 55 D1 OO1EC 18S: CMPL : R6 : 
4 18 OO1EF BLegu 15$ : 
B 11 OO1F1 BRB 13$ + 067 
08 68 £9 001F3 19$:  BLBC ANLSGB_INTERACTIVE, 208 * 070 
0000G CF 98 44 01F6 CALLS #0, ANCSINTERACT : 07 
| 03 5 O1FB BLES RO, 20S : 
OliB 31 OOiFE BRW 36§ : 
10 A3 D5 00201 208: TSTL  16(FP) + 0711 
03 12 00206 BNEQ i$ : 
0098 31 00206 BRW 9$ : 
| 7E 01 CE 00209 21$ MNEGL #1, =(SP) : 0716 
| 69 01 FB b920¢ CALLS #1, ANLSREPORT_LINE : 
| 04 AC DD 0020F PUSHL IMAG : 0717 
000000006 8F DD Boe lg PUSHL #ANLOBJS_EXEFIXA : 
| 01 DD 0021 PUSHL #1 : 
03 DD OO21A PUSHL #3 : 
68 04 FB 0021C CALLS #4, ANLSFORMAT_LINE ; 
| 54 53 10 A3 C1 O021F ADDL3 16(FP), FP, SP : 0718 
64 D5 00224 228: TSTL (SP) : 0722 
71 13 00226 BEQL 28% : 
57 54 D1 00228 CMPL SP, END_PTR : 0727 
09 1F 00228 BLSSU 23 ; 
5A DD 00220 PUSHL R10 : 0728 
00006 CF 01 FB O0geF CALLS #1, ANLSFORMAT_ERROR : 
63 11 002 BRB 2 : 0727 
52 84 D0 00236 238 MOVL (SP)+, COUNT + 0734 
7E 01 CE 00239 MNEGL #1, =(SP) : 0736 
69 01 FB 0023C CALLS #1, ANLSREPORT_LINE : 
64 DD 0023F PUSHL (SP) : 0737 
52 DD 00241 PUSHL COUNT : 
000000006 8F DD 00243 PUSHL #ANLOB$_EXEF IXAIMAGE : 
02 DD 00249 PUSHL #2 : 
02 DD 00248 PUSHL #2 : 
68 0S FB 00240 CALLS #5, ANLSFORMAT_LINE ; 
54 04 ¢0 00250 ADDL2 #4, S : 0738 
56 FF A2 9E 00253 MOVAB =-1(R2), R6 : 0742 
55 D4 00257 CLRL I ; 
37 11 00259 BRB F 
7E 00 55 01 7A 00258 248: EMUL . 1, #0, =(SP) : 0743 
50 50 BE 04 7B 00260 EDIV. #4. (SP)+, RO, RO F 
08 AE4O 84 DO 00265 MOVL (SP)+, LONG_ARRAYCRO] ; 
03 50 D1 0026A CMPL #3 + 0746 
05 13 00260 BEQL § ; 
56 55 pl O0g6f CMPL R6 ; 
1¢ 12 0027 BNEQ : 
14 AE DD 00274 258: PUSHL LONG_ARRAY+12 : 0748 
14 AE DD 00377 PUSHL LONG_ARRAY+8 : 
14 AE DD OO27A PUSHL LONGARRAY+4 ; 
14 AE DD 00870 PUSHL LONG ARRAY : 
| 01 0 9F 00280 PUSHAB 1(R : 0747 
000000006 8F DD 00283 PUSHL #ANLOBJS$_EXEFIXALINE F 
03 DD 00289 PUSHL #3 : 
| 7E D4 00288 CLRL. = (SP) ; 
8 08 FB 0028D CALLS #8, ANLSFORMAT_LINE : 
55 06 88 90 268: INCL I : 0742 
56 55 D1 00 32 27$: CMPL } R6 : 
LEQu : 
| C4 1B 0029 BLEGU 24s 


‘ 


EXEF IxuP EXEFIXUP = Analyze Fixup Info 1 
v04-000 ANLSIMAGE _FIXUP_INFO = Analyze Fixup Info 1 
88 11 00297 

08 6B £9 00299 
00006 CF 99 FB 029¢ 
78 9 E9 002A1 
14 = =#OA D3 O2A4 
6A 13 002A7 
7E 01 CE 002A9 
69 01 FB OO2AC 
04 AC ODD OO2AF 
000000006 1 8F DD 00 Be 

01 DD 0028 
05 DD O0¢BA 
68 4 FB 002BC 
54 53 16 A3 C1 002BF 
| 32 84 DO 002c4 
5 01 00 002C7 
| 37 11 OO2CA 
57 54 01 002CC 

| 09 1F OO2CF 
5A 0D 002D1 
00006 CF 01 FB 00203 

2E 11 00208 

7E 01 CE OO02DA 

69 01 FB 9020 

7E 04 AS 3C 002E0 
| 64 DD 002E4 
000000006 8F DD 00266 

02 DD OO2ZEC 
02 DD OO2EE 

68 05 FB d0gFo 

7E 06 Ad 3C 002F3 

02 DD 002F7 

0000G CF 02 FB 002F9 

54 08 cO O02FE 

55 06 99301 

52 55 01 00303 

C4 1B 00306 

08 6B £9 00308 

00006 CF 00 FB 0030B 

09 50 €9 00310 

00006 CF 00 FB 00313 

50 01 DO 00318 

04 00318 

50 04 0031¢ 

04 O031E 


: Routine Size: 799 bytes, Routine Base: $CODE$ + 0000 


; 0811 1 
; «6384 0812 0 end eludom 


14 
“Se 
Se 


™m 
oo 
wn 


30$: 


31$: 


32$: 
33$: 
34$: 
35$: 
36$: 


p-19 


03 ome Bliss-32 V4.0-7 
24 ANALYZ.SRCJEXEF IXUP.B 
2 
A 


2$ 
NLSGB_INTERACTIVE, 29% 
H4'¥ ANCSINTERACT 
RO, 368 

OCFP) 
4$ 


#1, -(SP) 

#1, ANLSREPORT_LINE 
MAGE 

BANLOBIS _EXEF INP 
#3 

#4, ANLSFORMAT_LINE 
20(FP) se 


(SP)+, COUNT 
#1, I 


32 
$P END_PTR 
1§ 


R10 
#1, ANLSFORMAT_ERROR 
33§ 

#1, -(SP) 

#1. ANLSREPORT_LINE 
4(§P), =(SP) 

(SP) 

WANLOBJS_EXEF IXPSECT 


8 
is, ANLSFORMAT_LINE 
6(5P), =(SP) 


a 
eee ae 


1, COUNT 
ANLS$GB_INTERACTIVE, 34% 
0, ANCSINTERACT 

#0, ANL SMAP_FIXUP_SECTION 


Pe Se Se Se Se Se Se Se Se Se Be Se Se Se Ge Se Be Be Be Se Se Be Se See Se Se Be Se Fe Fe Se Se Se Se Fe Se Ge Fe Fe Fe Se Be Se Se 


14 
KEF 1XUP EXEFIXUP = Analyze Fixup Info 14.56 =1984 23:47:0 AX-11 Bliss-32 V4.0-74 
04-000 ANLSIMAGE _F IXUP_INFO > Inalyee Fixup Info 10-Sep-1984 $7395 203 LANALYZ-SRe EXEF IxuP.B32;1 
PSECT SUMMARY 
Name Bytes Attributes 
SPLITS 10 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SOWNS NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 799 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
woceeee= Symbols -<------- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: (CSYSLIBIL1B.L32;1 18619 25 0 1000 00:01.7 


Information: 1 
Warnings: 
Errors: 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:EXEF IXUP/OBJ=OBJ$:EXEFIXUP MSRCS:EXEF IXUP/UPDATE=(ENHS$:EXEF IXUP) 


Size: 799 code + 18 data bytes 
Run Time: 0:17. 

Elapsed Time: 01:03.9 

Lines/CPU Min: 872 


Lexemes/CPU-Min: 13669 
eee! | Used: 290 pages 
Compitation Complete 


DIGITAL EQUIPMENT 
CONFIDENTIAL AND P 


-SE 


AH-BT13A 
VAX/VMS V4.0 


0005 


